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WEST SIDE GROUP MEETS AT LAKEWOOD PUBLIC LIBRARY 


15425 DETROIT AVE. LAKEWOOD OHIO 7:86 P.M. 

EVERY THIRD FRIDAY EACH MONTH 

CONTACT: DICK SIEG (216) 433-4387 Dont forget AUCTION 

and CHRISTMAS PARTY 

EAST SIDE GROUP MEETS AT THE EUCLID SQUARE MALL DEC. 5 EAST SIDE 

IN THE EUCLIDIAN ROOM 7:38 P.M. MEETING !!ittitsrgua 

EVERY FIRST FRIDAY EACH MONTH 

CONTACT: MAX SCHOENFELD (216) 371-1696 
A shart note to our friends from other newsletters and magazives. You are welcome to use any of our aterial, nens, adds, or prograns if 
You: (1) Tell where it case fron (RAHTOP Cleveland, @hio) and (2) The author's nane that wrote the article. We mould appreciate it if 
you would send us a copy of the newsletter that it appeared in/ Unless otherwise notified we will do the sane. 

THANK YOU FOR YOUR INTEREST 18 OUR HEWSLETTER / 
> THE TSU-—-BBS I5 ALIVE 


SYSOP: Chris Raynak PHONE: 216-327-1899 PARAMETERS:8/1/N 
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We were PlLEeESsed to have af 8 
est Speaker at Gur October 
St Side meeting. Hr. Thomas A. 
undner, Suctem Baministrater 

and "imnestigatar”™ a Ff the Ty Git 
FEaMmaus "Clevetlend Free-Net™ 
lLommunaity camputer sustem. Tam 
te¥E an excellant presentation 
sfid I hope parked interest and 
-Hcauragement if ett to use and 
rf getquiré 3&8 modem for their 
amputer system. 


For those wine are not 
“amiliar with Cleveland Free-Net 
-t can be best destcribed 25 = 
Lacetl FREE "“Compuserve” of “The 
Baurce™ type af muLticuser BBS 
aystem. The Bustem has the 
lepabilitu of EB users gff8f2i1nG 
st Ht one time. Bt the present 
time the System runs = Little 

Loi twhengi there ere = Large 
oy per af users or Line. This 
= oftware Problem which wil 
carrectéd, I hope, buy the 
this mewsletter reseches you. 
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4. Uhat’s Hew 

2. The Administ 

S. The Gorvernme 

4, Public Square 

5S. University Circ 

6. The Fost Grfrice 

7. The HoSritel 

&. The Schoathouse 

GS, The Courthouse 

The main Sections fi oi 
three ta 128 suUb-seC ae and 
mand o Ff the Sub-sec ns have 
MmutLtible parts. Gur Club is 
Proud to have B Timex sSinctlaisr 
SIG on the Byustem. WE cat be 
Found in the PubiLic Square 
Section, at Sub-Section &,-4,-¥. 
St present there are EiGRLE 
computer SIGs OF: the sustem. 
currentiy there are aboud 
Fiftu-fiveé 2ysaps oF aesretentis 
devoting energu ta making this 
electronic city huts. 

To gccess Clevetsnd 
CaLL ares code 2435, 3 
hours, BOB ofr 2288 bad. 

On Liné uou will Find complete 
imfoaorcmation for registering and 
receiving & Passuacrd end IG. 
When you call on us at SIG, 
be sure to register, i Fy aif 
t Ss meni 
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e “TSU-BBS" 
Gur Club 


“4 


m 

hr 

mann) 
eho tr cy or 


we 
st tt 
ty. 
st rt 
Lh pe omy 
te ad 
rho rte tre -| 


i 
fo Be Re ed re ie 


mo at 
amp ieny Ut pk ED 
it, 


bee oe, (TE ee IT 
bial 
. 
yd hn i 
ee Ig 
th 
CT 


FE 

= = 

& Bi 
Saftuai ay ¥ETU Use 
Friendly ul feature sustem. 
Yau can registe on Line. 
Along with he Usual metsage 
base, the system provide uptLoad 
amd downlaadd Capability for 2855 
and @L pragrams. 

Te access the system, call 

ares code 216-2e7-i1ees. 
Parameters: S-i-N 
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erage 243-325-8215 
2A. Calif. @-i-H 


do rg xeor 
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GiLits Oheession. 484-B7F7-2558 
Lanta, GA. 8-i-H 
FURUG BiF-S48-4155 
Ft. Worth, Texas S-i- 


TGRt Gul 
Chicago, Tilt. 
fuego Free Acad. 6B7-75S4-3428 
fuego, N.Y. 6-2 


Beriat Port ) 
Ann Arbor, Wich. a 
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COHPUSERUE: 

Purchase of starter Eit required 
Locai numbers thru-cut the us 
and Canada. Far the TIHES si6 
‘go Club’ at anu Prompt. 
iProbablu the Largest Timex 

BL message base ifr the Us. 
downloads alse. Upload 
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CLUB HEETING WOTES: 


Feb. 6 th i887 
Guest Speakter—- Jerr Hoore, 
Editor of SYHOUARRE HES, a bi- 
manthiy national Tra newstetter. 
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WE ARE STILL TRYING TO PUT TOGETHER A GROUP ORDER FOR al’S 
TQ GET A DISCOUNT ON THE QL KITS, AT THIS TIME THEY WILL 
COST ABOUT $109. IN GUANTITIES OVER 20, BETWEEN 19-20 IT 1S 
$119, EACH PLUS SHIPPING. THEY HAVE A 90 DAY GUARANTEE. 
ASSEMBLY IS OF THE FLUG IN, ATTACH TYPE. IF YCL ARE 
INTERESTED SEND YOUR WAME AND TELEFHONE # TO THOMAS SIMON, 
615 SCHOOL AVE., CUYAHOGA FALLS, GHIO 44221. I WOULD LIKE TO 
MAKE DECEMBER 1 THE CUTOFF DATE. THE MONEY WILL HAVE TO BE 
COLLECTED THAT WEEK, PERHAPS AT THE DECEMBER MEETING. 


TED KRYSZEK RECIEVED SOME INFORMATION ON THE DATA-SKIP 
VIDEQFACE DIGITIZER. IT IS CLAIMED TC WORK ON NTSC AS WELL 
AS PAL VIDEO STANDARDS AND WILL DIGITIZE SIGNALS FROM VCRS, 
TY CAMERAS, TY TUNERS OR OTHER COMPUTERS. THE COST IS #69. 
OR THE EQUIVALENT OF 200 HOLLAND GUILDERS. YOU CAN WRITE 
DATA-SKIP, L. BILLEMSTEEG 12, 2801 WC GDUDA, HOLLAND. THEIR 
TELEPHONE # IS 1820-20581. REMEMBER IT IS CONFIGURED FOR THE 
SPECTRUM SO THAT YOU WILL NEED A SPECTRUM BUS ADAPTER ALSO 
TQ USE THIS PIECE OF HARDWARE. 


THE LAST TWO ISSUES (OCT,NOY) OF 2X COMPUTING HAVE FEATURED 
ARTICLES ON NETWORKING THE SPECTRUM WITH THE QL. YOU MAY 
WANT TO GET THESE [SSUES IF YOU WANT TO USE YOUR 2928 AND 
L TOGETHER. CHRIS RAYRAK HAS SUCCESSFULLY NETWORKED HIS PC 
JR. WITH HIS QL AND BELIEVES THAT IT CAN EASILY BE DONE WITH 
THE ATARI AS WELL. THIS SHOULD SAKE THE @L A LITTLE 
MORE DESIRABLE SINCE PROGRAMS RUNNING ON OTHER MACHINES CAN 
BE SENT TO IT AND RUN WITH MORE OR LESS MODIFICATION. 
IAN ROBERTSON OF THE TORONTO SINCLAIR USERS GROUP REPORTS 
THAT A UK FIRM, MICRO CONTROL SYSTEMS LTD.,ELECTRON HOUSE, 
BRIDGE STREET, SANDIACRE, NOTTINGHAM, NG20 SBA, IS OFFERING 
A QL COMBINATION DISK ‘PRINTER INTERFACE WITH ZERO RAM FOR 
99.00. THEY ALSO HAVE 254K AND S1i2K VERSIONS OF THE SAME. AT 
THIS TIME TAN IS NOT SURE IF THE ZERO RAM VERSION CAN BE 
UPGRADED. 


BRIAN LERIS HAS A HARWARE FIX FOR THE GL SO CYCLE BOUNCE 
THAT IS EVIDENT IN THE MONITOR MODE WHICH HOPEFULLY WILL 
APEAR IN THE RAMTOP. HE ALSO TELLS NE THAT SHARPS HAS 
AVAILABLE A FEW OF THE QL MONITORS. THESE ARE IN SHORT 
SUPPLY AND AN EXCELLENT MONITOR. SHARP’S IS AT RT.10, BOX 
459, WECHANICSCILLE, VA 23111, TEL.# 804-746-1664, 


NOVELSOFT HAS ISSUED A NEW PROGRAN CALLED THE WORX, WHICH IS 
A RATHER ECCLECTIC GROUP OF PROGRAMS THAT ARE SWITCHED IN 
AND OUT. IT HAS A NOTEBOOK, A PLANNER, BIOFYTHEMS, 
CALCULATOR, CLOCK, WORLD TIME MAP ANCNS OTHER FEATURES, THE 
PROGRAM PERFORMS BEST WITH INTERACTIVE STORAGE DEVICES . THE 
PROBRAN HAS A FEATURE TO CUSTOMIZE IT TO THE PARTICULAR 
DEVICE THAT IS BEING USED. IT IS AVAILABLE THROUGH EA. 
BRORN, 3404 PAWNEE DRIVE, ALEXANDRIA, MN, S3603 OR 
NCVELSOFT. ALSO NOVELSOFT MENTIONED THAT THE FROGRAM 
TINENACHINE IS BEING MARKETED IN THE U.K. BY HISOFT UNDER 
THE NAME CF THE BASIC COMPILER. NOVELSOFT HAS THE NORTH 
AMERICAN RIGHTS TO THIS PROGRAM SO DOK’T SEND TQ ENGLAND 
FOR THIS EXCELLENT HOMESROWN PROGRAM, 


* 


SREY AND CLIFFORD COMPUTER PRODUCTS NOk HAVE QUITE A FEW NEW 
ITEMS AVAILABLE. THEY HAVE FINISHED THE SPECTERM-&4 WHICH IS 
A SPECTRUM 64 COLUMN TERMINAL PROGRAM THAT WILL RUN WITH THE 
2050 MODEM OR A 1200 BAUD MODEM ON A 20SB IN SPECTRUM 
EMULATION. COST IS $20.+$2. S&H. A 2068 VERSION IS PLANNED. 
THEY ALSO HAVE A Z-SI/Q INTERFACE WHICH SUPPORTS 3 BAUD 
RATES 300,1200 AND 19200 THROUGH SOFTWARE CONTROL AND A 
STANDARD RS-222 DB-25 CONNECTOR. THIS CARD PLUGS DIRECTLY 
INTO A STANDARD OLIGER EXPANSION BOARD. TWO VERSIONS OF THIS 
ARE AVAILABLE, STANDARD AND JLO DRIVE COMPATIBLE. COST 15 
$79,4+$3,50 S&H. THEY HAVE THE AVITEX 3090/1200 BAUD MODEM FOR 
$109. +$3.50 S&H. THE 2050 MODEM CARDS ARE AVAILABLE IN PACKS 
OF 5 FOR $15,482.50 FOR S&H. CALL OR WRITE THEM AT P.0. BOX 
2186, INGLEWOOD, CALIFORNIA, 90305, TELEPHONE = #55 
213-759-7406 OR 516-6648. 


IN THE SEPTEMBER, RANTOP THERE WAS A MENTION OF THE TAFE 
MAGAZINE "BYTE POWER" PUBLISHED BY ERIC AND KRISTIAN 
BOISVERT. IT QUITE A LONG TAFE WITH A LOT OF GAMES, ROUTINES 
AND UTILITIES ON IT. IT 1S PUBLISHED AT $5.50 (US) PER ISSUE 
OR & MONTHS FOR $29.99. THEY ALSO WILL PAY FOR PROGRAMS. 
WRITE TO THEM AT BYTE POKER, {748 MEADORVIEW AVE, PICKERING, 
ONTARIO, CANADA L7Y 352. 


THE TSU BBS HAS BEEN GETTING QUITE A FEW QUT OF STATE TIMEX 
USERS. IF YOU WOULD LIKE TO NETWORK WITH SOME OF THESE USERS 
ACROSS THE COUNTRY CALL UP CHRIS AND LEAVE A MESSAGE. THE 
BES WILL BE ONLY AS GQOD AS WE MAKE IT. WHILE ON THE SUBJECT 
OR TELECOMMUNICATIONS HERE iS THE NUMBER OF ONE OF THE NEWER 
TIMEX BBS SYSTEMS ROW ON-LINE, THE ISTUG, 24  HRS., 
7-1-E, 1-317-898-3903. SOME INTERESTING NON TIMEX BOARDS ARE 
AS FOLLOWS: PHOTOCOMM AT 415-742-5615 (INFORMATION FOR 
PROFESSIONAL & AMATEUR PHOTOSRAPHERS), INVENTORS & AUTHORS 
BBS AT 817-430-3760 {PATENT & COPYWRITE INFO}, = THE 
COLLECTORS NET AT 213-204-0646 {EXCHANGE FOR ALL SORTS OF 
COLLECTORS), PICKHAN’S PHONE CENTER AT 213-613-0031 (OFFERS 
POINT SPREADS ON FOOTBALL GAMES) AND THE UFO NETWORK AT 
206-722-5738 (ABOUT UFO SIGHTINGS!) 


ANOTHER PROJECT: HOW ABOUT ALL OF OUR READERS SENDING THE 
NANES OF PROGRAMS THAT DO NOT WORK WITH THE 2068 WITH THE 
SPECTRUM EMULATOR, ROM OR ROMSWITCH AND AFTER A MONTH OR 
TWO, WE’LL PRINT THE LIST OF PROGRAMS THAT WILL NOT 
WORK. THIS COULD SAVE A LOT OF GRIEF SINCE SOME SOFTWARE 
WILL NOT RUN PERIOD. ALTHOUGH THERE 1S A LOT OF SOFTWARE OUT 
THERE FROM ENGLAND THAT [S POORLY RECORDED OR ON TIJUANNA 
TAPE SPECIAL REJECT CASSETTES, WE WANT TO KNOW ABOUT THE 
ONES THAT ARE HARDWARE INCOMPATIBLE. LET US HERE FROM YOU ON 


ue By TCX SINCH 


I want tc take a few lines to here to THANK ALL OF YOU for 
the FINE articles and progrags that you have sent in this 
year!!! Qur RAMTOP is one of the test publications of its 
kind and it’s all due to YOU''! So feel free to pat 
yourself on the back!!! We will be back on a monthly 
schedule in January. We hope to continue to GROW in 1987!!! 
THANKS ABAIN------ James 5. DuPuy, Editor 


REM 
REN - PERPETUAL PRINTING CALENDAR TS-2848 

REM - WITH FORMATTED HEADER FOR 88 COL. PRINTER 
REM - WRITTEN BY: FRED KEMPLER 

as - MODIFIED FOR TS-BASIC BY: TED KNYSZEK 

58 CLEAR 64718: LOAD "*CODE 
o8 RANDOMIZE USR 64719: RUN 

7Q DEF FN LS(A$,X)=AS{ TO 1) 
28 LET PRFLAG=B" 

28 DEF FN MS(A$,X,Y=AS(X TO (X#¥)- 1) 


ee 
CH tha rt ae 


39 LET Ags" 

28 DIM PS(25 bb): DIM YA) DIM ACI2)s DIM C$(4,65): DIM H$(25 
+ DIN NS (25,65 

a cls Print fh T;"PERPETUAL CALANDER": PRINT : RESTORE 


48 FOR I=! TO 12 

58 READ ACT) 

:38 NEXT I 

78 READ BS 

38 FOR [=1 TO 4 

28 READ C${1) 

28 NEXT I 

18 READ D$ 

228 READ E$ 

30 INPUT "ENTER YEAR"; Y$ 

“48 LET Y=VAL (Y$) 

-38 LET R=! 

758 FOR T=1 TO 4 

78 LET Y(L)=VAL YS(D) 

238 NEXT J 

-78 60 SUB 718 

288 PRINT “ENTER NAME: 
uP TO 255 

218 INPUT J$: PRINT J$ 

528 G0 SUB 558 

“3 PRINT "FORMULATING CALARDER™ 

“49 60 SUB 988 

T38 PRIRT “FORKATTING-NANE® ~~ 

758 GO SUB 638 

“78 G0 SUB 788 

“38 PRINT "PRINTING CALANDER™ 

“98 GO SUB 1348 

38 STOP 


: REM INPUT ANY NUMBER OF CHARACTERS 


JB DATA 31,28,31,30,31,38,31,31,38,31,38,3 

478 DATA * Su RD tu WE TH FR $A SUMO TU ie TH FR SA SU MO 
SE TH FR SA" 

“30 DATA : JANUARY FEBRUARY 
“gown : APRIL HAY 

238 DATA" JULY AUGUST 5 
TEMBER" 

>58 DATA * OCTOBER NOVEMBER 
CERBER" 

a7a DATA" 12 9 iu i112 13 14 15 16 17 
19 m8 24 21 22 23 a 5 * 2 28. 3e 3 
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388 DATA wy tpyeusuitiipygdguguigiguiant 
SQ DATA "181118881881181188188881181 181" 
520 DATA "LBIBIBLL1B1 E2202 0112801111011" 
38 DATA "1BiBIBI@EIR1BB1881181881 181881" 
SQ DATA "LLLLILLELEEL@BLLL21018Q210 1111" 
538 INPUT "HARDCOPY? (Y/N) TS X$ 
S48 IF X$="Y" OR k$="y “THEN 60 TO 578 


=25 60 TO 678 

570 LET PRFLAG=! 

238 PRINT “PLEASE READY PRINTER* 

328 RETURN 

538 REM ---------- EXTEND NAME---------- 


S48 LET X=LEN (J$)+1 
858 LET X=INT (255/%) 
£68 LET Q$="" 

278 FOR I=1 TO X 

388 LET O$=0$+3$+"-" 
£8 NEXT I 

BG RETURN 


oan LOAD YOUR OWN PRINT DRIVER 


TW 
4 


EP 
DE 
18 


7189REM 
728 FOR I=1 TO S: LET 6$="" 
738 READ F$ 

74Q FOR dst TO 4 

758 LET BS=BS4FN MS (FS 
768 NEXT J: LET HS(1)= 
778 RETURN 

788 REM 
79@ FOR I=1 105 

ge@ FOR J=! 105 

gia LET Q=((1-1)#5) +d 

a28 LET 6$="" 

Q3@ PRINT 26-0;"-"3 

B48 FOR K=1 TO 12 

g5@ LET P=(K-1)45 

BQ IF HS(I.K)="@" THEN 60 TO 898 

870 LET G$=6S4FN HS{O$,O+P, 5) 

a8 G0 TO 988 

99@ LET 6¢=6S4" 

988 NEXT K 

91@ LET T$="" 

928 FOR L=1 TO 4 

938 LET TE=TS+FN MS(GS, ((L-1)#15)41,15)4" * 
94@ NEXT L 

958 LET P$(Q)=1$ 

94@ NEXT Js NEXT 1 

978 RETURN 


998 LET Lis-6 
1@88 FOR I=! TO 18 STEP 3 
1018 LET LI=Li+s 


(yd) #3) 41,3) 
=6$: NEXT 1 


iB15 CET R$="*: LET S$="" LET T$=""s LET Ug='*: LET ¥="": L 
1878 FOR 1: ‘l bo 142 

1868 LET 

1878 LET 0: AIH) (t- “SBR (Y/4-INT (Y/4)))#(1-ABS (SGN (H-2))) 
1088 LET L=@ 


1898 LET Yi=¥ 
1188 IF M>2 THEN 60 TO 1138 

1118 LET R=R+i2 

1128 LET Yi=Y-1 

1138 LET M=K+l 

1148 LET Z=INT (365. 258Y1)41NT (38. 8M) -1 
115@ LET 2=2-7#INT (2/7) 

1168 LET R=Mi 

1178 LET KS=FN LS(ES, S82) +DS 

1188 LET REERSt" "4FN MS(KS$,1,21) 

1198 LET L=? 

1288 LET Le=1 
1218 LET Al=8 
1215 60 SUB 1331 
1225 LET S$=S$+" 
1238 LET T$=T$+" 
1235 LET U$=Us+" 
1237 IF A=D OR ADD THEN 


"+¥$: GO SUB 1331 
"+X$: 60 SUB 1331 
"+X$: IF ACD THEN 60 SUB 1331: 
LET Vg=Vs+" "+A$: 60 10 


oe My 1248 


124@ LET V$-Vse" "+X$: IF ACD THEN 60 SUB 1331: Let ite Wee" "+X 


$: 60 TO 1278 
1245 LET WE=HS+" "tA$ 
1278 LET Ni=Hi+l 
1288 NEXT J 
1285 LET NS(L#L1)=R$ 
1286 LET N$(2+L1)=5$ 
1287 LET N$(3+L1)=1$ 
1288 LET N$(4+Li)=US 
1289 LET NS(StL1)=V$ 
1298 LET N§(S+Li)=WS 
io NEXT I 
338 RETURN 
ia LET LB=L8+i 
te LET A=(Lt7+D-ABS (L+7-D))/2 
333 LET X$=(FN MS(D$,3#L +1, (3#(A-AL)))+E$) 
1334 LET X$=FN LE(KS, 1) 
1335 LET L=L+? 
1336 LET Al=A 
1337 RETURN 
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{34B>REH ---------- PRINT CALENDAR--------- 
1358 FOR H=1 10 25 

1368 LET Q$=P$(H); 60 SUB 1538 

1378 NEXT H 

{388 LET @$="": GO SUB 1538 


LET M=8 
1418 FOR k= ‘ ae 24 STEP 6 


1428 LET & 
1436 LET Os: c$ 1M): 60 SUB 1538 
1448 LET Q$=" ": G0 SUB 1538 
1458 LET Q$=B$: 60 SUB 1538 
1468 LET L=L+3 
1478 FOR C=1 TO 6 
1488 LET Q$=NS(C+K-1): 60 SUB 1538 
1498 LET L=L+! 
1308 NEXT Cs NEXT K 
1528 RETURN 
1338 IF PRFLAG=1 THEN LPRINT TAB 7;0$: RETURN 
1558 PRINT @$ 
1568 RETURN 
9888 SAVE "CALENDAR" LINE 5B: SAVE "tasintcode"CODE 64719, 652: 
REM SAVE YOUR GWN PRINT DRIVER CODE 


P-TS- PERPETUAL-CAL UMi- £ T 
-TS-2 ERPETUAL-CALE! as ae TER Rawr Pe 
TS-20 RPETUAL-CAL L a 
S-206 PETUAL-CALENDAR 
~2068 ETUAL-CALENDAR- 
P-TS-2066 TUAL- DAR-8 
-TS-2066-P UAL-c AR-60 
TS-2068-PE AL-CA R-80- 
S-2068-PER L-CAL ~80-C 
-2068-PERP - CALE 80-cO 
PERPE CALENDAR-80-COL Us i-PRINTER RAM OPER 
ERPET ALENDAR-80-COLU  BN-PRINTER-RAMT -PER?P 
KPETU LENDAR-&8-COLUM -PRINTER-RAMTO PERPE 
PETUA EXDAR-B2-COLUM? =F RINTER-RAMTOP ERPET 
ETUAL NDAR-@2-COLUMN-  PRINTER-RAHTOP— RPETU 
TUAL- UMN-P INTE TOP-T PETUA 
UAL-C MN-PR INTER OP-TS ETOAL 
AL-CA N-PRI NTER- P-TS- TUAL- 
L-CAL -PRIN TER-R -TS-2 UAL-c 
-CALE PRINT ER-RA TS-20 AL-CA 
TUAL-CALINDAR-8 @-COLUMN-PRINTE F-RAMTOP-TS_206 L-CAL 
UAL“CALENDAR-80 -COLUMN-PRINTER -RAHTOP-TS- 2068 -CALE 
AL“CALENDAR-80- COLUMN-PRINTER- RAMTOP-TS-2068. CALEK 
L<CALENDAR-80-C OLUMN-PRINTER-R AMTOP-TS- 2088-1 ALEKD 
~CALENDAR-89-CO LUMN-PRINTER-RA MTOP-TS-2068-PE LENDA 


JANUARY 
SU MO TU WE TH 
i 


45 67 8 
31°12 13 14 15 
18 19 20 21 22 
25 26 27 28 29 


APRIL 
U MO TU HE TH 
i 2 
5 6 7 8 @ 
1314 15 16 


28 21 22 23 
27 26 29 30 


JULY 


SU MO TU WE TH FR SA 
; is ee 
5 6 7 86 89 i811 
13°14 15 16 17 18 
19 26 21 22 23 24 25 
26 27 28 29 30 31 


OCTOBER 
SU MO TU WE TH FR SA 
2243) 
45678 819 
11:12:13 1415 16 37 


19 20 21 22 23 24 
2& 26 27 28 29 32 3) 


@ 


FEBRUARY 


SU MO TU KE TH FR oA 
12 3 46 5 °6 

8 9 10 11 12 13 ‘a 
15 16 17 16 35 20 21 
22 23 24 25 25 27 28 


MAY 
SU MO TU KE TH FR SA 
1) zi 


5 6 7 8-9 
19 11 12 13 14 15 16 
17 18 19 20 21 22 23 
24 25 26 27 28 29 36 
3 


AUGUST 
SU MO TU HE TH FR SA 


1 
23 45 67 86 
9 10 11 12 13:14 15 
16 17 18 18 20 21 22 
23 24 25 26 27 28 29 
32 31 
NOVEMBER 


SU MO TU WE TH FR SA 
cS eae Sa Ge - Se Soy 
8 810111213 14 
15°16 17 18 33 20 21 
22 23 24 25 te 27 28 


29 33 


MARCH 


Be aera, eae 
ee: 43 52.6 37! 
Nace Ceteerter 
15 16 17 18 19 28 2) 
22 23 24 25 26 27 26 
28 30 31 


JUNE 
SU MO TU WE TH FR SA 
12345 6 
7 8 §$ 1811 12 13 
14°15 16 17 18 19 20 
21 22 23 24 25 26 27 
26 28 30 
SEPTEMBER 
SU MO TU HE TH FR SA 
67 6 
13°14 15 16 17 18 19 
20 21 22 23 24 25 26 
27 28 29 30 
DECEMBER 
eS tee ee 
J 42053 5 
6 7 8 $10 it 12 
131415 16 17 18 16 


2€ 21 22 23 24 25 26 
27 28 29 30 31 


PERFETUAL PRINTING CALENDAR 
By Ted knyszek 


T hope you enjoy this program as such as I have, Since | 
wasn t to familiar with $tring arrays I lost some hair trying 
to understand IBM $trings compared to 1S-2848. This prog. was 
published in the Noveeber issue of HANDS-ON Electronics, The 
actual program starts on line 78. You can use your own print 
driver routines. When printing use eaphasized and double strike 
for a sore pleasing effect. You can not use 05-44 because the 
top of the calendar is 44 col.. 

If you ty feel like typing it in you can down-load it fros 
the TSU-BBS 


THE JOHN GLIGER DISK DRIVE 
VERSION 2.8 15 AVAILABLE 
Ry Ted Knyszek 


I just received ay first Disk Drive interface in KIT FORM 
from John Gliger. It went together like greased lightning eainly 
due to the great boards and directions in the KIT. John said 1 
was the first to receive the new version 2.8 DOS, | was elated. 
After I got the KIT tagether I hooked it up to ay bargain $5.88 
DISK DRIVES. To my surprise they turned out to be double sided 
B2 track and they worked. WOW and over 882K per disk. I‘a going 
to list the cogsands in the new DOS. Most of thes are just like 
useing tape comsands with the addition of /. 


ULG SAFE ¥2.88 COMBAND LIST: 


LET /S=n LET /T=n 

LET /D=n LET /H=n 

LET /P=0 & LET /P=T LET /P=0/B $ Let /P=T/B 
FORMAT /"DISKRARE" SAVE /*FILENAME® 

SAYE /"FILENANE" LINE n LOAD /*FILENANE" 

SAVE /8 LOAD or LOAD /8 

SAVE /"FILENAME" CODE na LOAD /"FILENAME" CODE ne 
LOAD /"FILENAME™ CODE n LOAD /"FILENAKE" Code 
SAVE /"FILENARE" SCREENS LOAD /*FILENAHE* SCREENS 
SAVE /"FILENAME” DATA X{) LOAD /*FILERABE™ DATA X() 
SAVE /"FILENANE" DATA X${) LOAD /"FILENANE" DATA X${) 
SAVE /"FILENARE” VAL LOAD /*FILERAME” VAL 
SAVE /"FILENAME" ABS LOAD /"FILENANE™ ABS 
LOAD /n CAT 

HOVE / COPY / 


NMI PUSHBUTTON SAVE ( function ) 


If you allready have the JLO V 1.8 you can trade in your 
EPROM for version 2.8 for only $15.88, 
The John Qliger Co, 
11681 Whidbey Dr. 
Cumberland, IN 44229 


"JEL ig an absurd program that generates nonsense 
srature (or poetry or whatever) that phonetically and 
ziching it ~ stylistically resembles any great author 

user may desire to make such an electronic sockery of. 
sve included listings for both the GL and the 2068 
+h godifacation it runs perfectly well on the 7{-81 as 
) as well as output listings and these instructions 
ctructions?) ¢ 


cow to use the DRIVEL prograa: 
ter the program is loaded and running, it will ask you 
<ype the source text. At this point you are to enter 
‘arally anything (IE. great literature, reports, poegs. ) 
just typing it in. There is no text editor as all input 
fetched using the INKEYS function. This approach may 
va crude, but it is functional. (Of course, it can be 
croved.) To exit the input routine, type "ESC" for the 
and "@ for the 2068. Incedentally, the %" should be 
cided if it occurs in the source text as it will sisply 
vid the input session. The progras will then query “START 


CLS: CLS#@: CL5#2 
: Zg=?? 
‘ PRINT ’PLEASE ENTER SOURCE TEXT: ’ 
. REPeat LOOP 
; IS=INKEYS( 81, -21) 


FHRASY?" You should type in a word or part of a word that 
occurs in the source text, followed by <ENTEFS. The 
lenghth of this ‘start phrase’ will determine ‘the 
randomness of the text do be generated. A short phrase (2 
or 3 letters) will produce very randoe text whereas a long 
phrase (6 to 10 letters) will produce text alaost 
identical to the source text (baring.) ! have found that 
the ideal ‘enghth is 4 letters. If you want to begin with 
a word that is longer than 4 letters, just type in the 
first four. Of course you should experisent to decide for 
yourself what you like best. 


You will notice that DRIVEL is a painfully slow progras. 
Interestingly enough, with small source text (1 or 2 
paragraphs) the OL and 2068 run at alaost the sage speed. 
Unfortunately, this speed is somewhat of a snails pace. 
Inspecting the progras listing, you will notice that 
DRIVEL generates while generating output text. It can be 
aodified to generate the needed statistics all at one tiee 
before the output stage (thus increasing the speed several 
hundred times) but this requires rather incredible agounts 
of semory. Fourth order text (a four letter start phrase) 
would consume more than the entire semory available on a 
stock 2068, but is within the range of {28K machine. If 
anyone would like to atteapt to write such a program, feel 
free to contact me for sor information, Brian Lewis. 


IF I$=CHR$(27) THEN EXIT LOOP . a dicta 

a pena 3 PRINT "PLEASE ENTER SOURCE TEXT: " 
ee Peat LOOP 6 LETI$=INKEY$:IF I$="" THEN GO TO 6 
be ee eet 8 IF I$=CHR$(127) THEN GO TO 52 

> INPUT\\\\"START PHRASE ? -"5S$ aoe et eee: 

3 LS=LEN (S$) iiten pose 

38 CLS:PRINT S$; Set ER e) 

[8 REPeat LOOP =LEN a 

Be ce A(127) 54 INPUT#@, "START PHRASE ? ";S$ 

4 FOR F=1 TO L-LS 56 LET LS=LEN (S$) 

3 IF Z$(F TO F+LS-1)=S$ THEN TAB 58 CLS:PRINT S$; 

58 END FOR F 62 DIM A(127) 
“3 BEEP 10,10 64 FOR F=1 TO L-LS 

> SUM=1E-6 66 IF Z$(F TO F+LS-1)=S$ THEN 

4 FOR Fi=1 TO 127 ae eae Go SUB 100 
38 IF A(F1)>1 THEN SUM=SUM+1 UM= 

'8 END FOR Fl 74 FOR X=1@ TO 127 

; RN-5@ 76 IF A(X)>1 THEN LET SUM=SUM+1 
32 FOR J=10 TO 127 he eae 

84  RN=RN-((A(J)/SUM)*(RND(1 TO 6))) Dae oe 

26 IF RN<@ THEN WRITE:END REPeat LOOP 82 = : 

: ROR J 84 LET RN=RN-(A(J)/SUM) *(RND*5+1) 
eocian pepoat KOOr 86 IF RN<@ THEN GO SUB 209:GO 10 62 
.@@ DEFine PROCedure TAB te Pa — 

a ae 100 REMark TABULATE 

114. A(LI)=A(LI) +50 192 LET L$=Z$(F+LS) 

116 END DEFine 194 LI-CODE(LS$) 

“08 DEFine PROCedure WRITE sae Ori ee ca aan a 

202 P$=CHRS(J) 55a evs i EGE 

216 PRINT P$; ge 

"18 S$=8$(2 TO )&PS 202 LET P$=CHR$(J) 

220 BEEP 100,10 gee PN ee wee 

‘22 END DEFine 218 S=S$ ( ) 

: 222 RETurn 

PRIVEL Listing 1 - @L version. ° DRIVEL listing 2 - T/S 2@68 version. 


RENUMBER 


by Theo Turk 


Nov. 2, 1986 
FOR T31000/1500 


THE FOLLOWING IS AN ADAPTATION OF A BASIC LINE RENUMBERING 
PROGRAM THAT I'VE BEEN USING FOR SOME TIME. HOWEVER, IT DIFFERS 
WITH THE ORIGINAL BASIC PROGRAM IN TWO WAYS. (ONE) PART OF THE 
PROGRAM AS YOU CAN SEE IS WRITTEN IN MACHINE CODE FOR FAST SPEED. 
(TWO) THIS PROGRAM WILL LET YOU RENUMBER ALL OF YOUR PROGRAM 
LINES STARTING FROM LINE 1 to 99386 OR JUST A PORTION OF THE 
PROGRAM, LEAVING THE REMAINING LINES INTACT. 


998@ PRINT AT 7.@;"ENTER FIRST LINE # TO BE MODIFIED." 

9981 INPUT X 

9982 POKE 16445, INT (X/256) 

9983 POKE 16444, X-256xPEEK 16445 

9984 PRINT "ENTER LINE # OF FIRST LINE NOT TO BE CHANGED.” 

9985 INPUT Y 

9986 POKE 16447, INT (Y/256) 

9987 POKE 16446, Y-256xPEEK 16447 

9988 PRINT “ENTER INCREMENT." 

9989 INPUT Z 

9990 POKE 16452, Z 

9991 RAND USR 32690 

9992 STOP 

9993 LET AS="2A3C4@CDD8092249492A3E4Q9CDD8O9224249ED5B444G7A 

B3CA4BOD2A4949ED4B3C49782371C523E54E2346E109 2323224049 

ED4B4240A7ED4 2E1D819223C4QED4B3E4@A7ED4 238D3C33508"". 

9994 LET W = 326992 

99935 POKE W, 16xCODE AS+CODE AS(2)-476 


227 TEE WS ae DO THE FOLLOWING STEPS. 


9997 LET AS = AS(3 TO) 
9998 IF AS<>""" THEN GOTO 9995 


3999 RUN 93980 SAVE ON TAPE 


POKE 16388,178 
POKE 16389,127 ;NEW 
RELOAD FROM TAPE 
RUN 9993 


THE PROGRAM WILL AUTOMATICALLY STOP IN LINE 9980 ASKING FOR 
THE FIRST LINE # THAT YOU WANT CHANGED - (input X). ALL OF THE 
FOLLOWING LINES - TO BE CHANGED - WILL BASE THEMSELVES FROM THIS 
LINE #. 

THE COMPUTER WILL THEN ASK FOR THE FIRST LINE # THAT YOU DO 
NOT WANT TO BE OVER WRITTEN - (input Y) - OTHERWISE TYPE IN 9980. 
EVERYTHING FROM LINE "X"' UP TO BUT NOT INCLUSIVE OF LINE "y" 
WILL BE RENUMBERED. 

FINALLY, ENTER THE INCREMENT VALUE FROM (1 to 255). 


NOTES: 1.A REPORT CODE OF "5" INDICATES "INSUFFICIENT ROOM": 
USE A SMALLER INCREMENTAL VALUE. 
2.A REPORT CODE OF "9" INDICATES A "NORMAL RUN": NO ERRORS 
3.ALTHOUGH THE MACHINE CODE USES RELATIVE JUMPS, THE MEMORY 
LOCATION USED FOR STORAGE CAN BE CHANGED TO WHAT EVER YOUR 
NEEDS MIGHT BE. IF NECESSARY, CHANGE LINE 9991 AND 9994. 


AUNWw YP 


Sy Everett Pence 


>" 


‘i eigtne ears 7! 
T recently decided to try something new with my plotter. Thanks to an 

anticke in Computers £ Ekectnonics by Forrest M. Mims III, I have made 

a circuit which allows a plotter to be used asa digitizer. With the This 48 an example 

addition of a relay, the circuit shown below can be used to digitize a 

pictures, Line drawings, and other similar items. The tdea is neatly 

4amp£e, a picture 44 placed on the plotter and with some adjustments 

for Sensitivity and a short program, many different 4zes of pictures 

can be digitized. The cineunit used simply forms a switch that 4s 

sensitive to different Levels of Light. The phototransistonr 44 

connected by fiber-optic cable to a makeshift plotter pen. The output 

of the switch is connected to the joystick port of the 2068. The 

cigitizing process takes about 1% hours. This is due to the speed 

of the plotter, not the circuit or driving program. It doesn't seem too bad <§ you 

consider the fact that a full screen picture 44 

made up of 45,000 pixels (each of which has to 

be checked one at a time.) 
Tf you have any questions on would Like more details, 


Write: Everett Pence 
564 Morningview Ave. 
Akron, Oh. 44305 


Fig. 10. Simple phototransistor sensor circuit. 
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HOUMA MONA ND UNNI NTANNAT RNN  D 
__ Q@oLumn__ 


by Gabe Schaffer 
ECCT EEC EEECE EEE EPEC EDEL RECORD DES Se E ELL EEL LEE Listes 


Hi, all! This month I will have a program based on a 
card trick I encountered in school. Complete instructions 
ware included. But first, if you have any comments, please 
write to: 

Gabe Schaffer 
2599 Saybrook Rd. 
Univ. Hts., Ohio 44118 


SSSA SSS BB 
CARDS 
SSS EEE 09 0 


CARD: *E* CARD: *T" 
Soe Te a, ee 
? oo UCU 
reer ee ee ee ee ee 
ee se lOO 

CARD. "F* CARD: "0" 
Bee Be on Ne A ee ad 
“RR Bow BO! Sou ow ow 
ny 1 nk eB Ul 
2 8 % 3 8 7 Bo 

CARD. *S* The program that belongs to 


these cards is the one 
below. The instructions are 
displayed when you run the 
program. These cards work 
with a simple math formula, 
so that if you know which 
cards the nuaber is on, 

you can quickly tell what 
the number is. (Hint: If 
you don't already know the 
formula, the prograa will tell you how the cards ‘work’. 
And the “ETFOS” cards in the instructions refer to those 
above.) Next month I will reveal the formula if you have 
not already figured it out from the progran. 


PDN SIRI RR RR ARMM MAT ERROR RADAR OMAR ARORA ASSO ROE Rhy 
PROSRAN 
BOSE SRY OS BS SS 


100 init 

11@ PRINT ‘Think of a number from | to 31...’:FOR f=] TO 5 
120 AT f,@:INPUT ‘Is your number on card *')1$(f);'" (Y/N)? 
lis 

130 IF ig="Y" OR i$="y" THEN t=ttl(f):ELSE IF 1$<)" N" AND 1 
$<)"n" THEN 60 TO 128 

140 NEXT f:PRINT \\'Your number is: '!t 

158 RETurn 

160 AT #0,0,Q:INPUT #6, Play again (Y/N)? !p$ 

17@ IF p$="Y" OR p$="y" THEN G0 TO 326;ELSE IF p$<)"N” AND 
p$<)"n* THEN GO 70 168 

18@ STOP 

190 PRINT 'I am thinking of a number...’:O1M n(S):FOR f=1 T 
O Sin(f)=RNDC1) teten( ft X1(f PRINT ‘My number is‘). IF nlf 
) THEN PRINT ‘on card "‘Sl$(fa'".' NEXT fiELSE PRINT ‘not 
on card "'&18(f)8'".' NEXT f 

200 IF t=@ THEN CLS:G0 TO 19@'ELSE AT 8,@:INPUT ‘What is my 
number?" Si 

210 IF i=t THEN AT 7,@:PRINT ‘CORRECT, my number is: ‘81&FI 
LL$(" " 4) :RETurn vELSE AT 7,@:PRINT 'WRONG, sv nunber 1s 
not: ‘&i\FILL$(* ",22):60 TO 260 

220 DEFine PROCedure init 

230 WINDOW 420,160,46,@:MODE S:CLS:PRINT TQ 11; ‘CARDS GAME’ 
\TO 8;'by Gabe Schaffer’\TO 16;'INSTRUCTIONS'\\ 

248 PRINT ‘To play this game, you will need the proper "E 

TROS” cards on hand.’ \\’at the prompt, type | and ENTER if 

you want the coaputer “ guess the number, or 2 and ENTER i 
f you want to guess the number.’ 

250 PRINT \'If you typed 1, you will be told tothink of an 

umber. Next, you are asked which of the five cesds your n 

umber is on. Type Y or N and ENTERto each of the questions. 


260 PRINT 'The computer will tell you what the  nuab 

er is and you will be asked if you want to play again.’ 

270 PRINT #0,'Press ENTER for the next page.’:REPeat i:i$=l 

NKEYSiIF CODE(i$)=10 THEN EXIT i ‘ELSE END REPeat i 

280 CURSOR @,32;CLS 2:PRINT 'If you typed 2, the computer wv 

ill think of a number and it will tell you which cards its 
nuaber is on.' 

296 PRINT ‘Next you will be asked what the = number is. If 
you are correct then you will be told that your answer is 
correct and you will be asked ifyou want to play again. '; 

306 PRINT ‘Otherwise, you will be told that you are el al 

d will be given another try.’ 

310 CLS#O:PRINT #6,'Press ENTER to start the game.’ :REPeat 

LiiS=INKEVS (IF CODE(i$)=10 THEN EXIT i:ELSE END REPeat i 

320 t=0,1$="ETFOS’ DIM U(S)IFOR d=@ TO 4:1 (dt) )=2°d)1(1)=8: 

1(4)=1 

330 CLSICLS#@: INPUT #0,’Press 1 if you want me to quess the 

nuaber, or 2 if you want to guess the number. '!i§$ 

340 CLS#O;IF i$<)'1' AND i$<)'2' THEN GO TO 33@:ELSE IF is= 

'T' THEN GO SUB TI@:ELSE G0 SUB 190 

358 60 TO 160 


bebsSebcbonen bed bed bed ceesgagenegenesecegeseneredesesenedegag gescguasea eel gen ed tenes gab a tedeten tel hehe 
_ QGolumn__ 


By Gabe Schaffer 
hobesedSegesesebeped Sebesedetaes Senne Regs tesesenesenebedo he bepecedupenede se cgenete eget Ret RepeneRedat tege 


Hello again. Since this is a double issue of THE RAMTOP, 
I will wait until Jan. to reveal the solution to the card 
game. Also, I should mention that programs in this column 
will be for TV mode only (F2 when you turn on the computer) 
unless noted otherwise. 


Here is a review of the A+ QL kit, sent in to we by Gary 
Sprang, 


SSBSSSRADD SRS RASG BB 8 35 5 B35 I 
REVIEW 
SOE SSEO BESO ASANO SSS SSB 8B 


The At QL Kit 
as reviewed by Gary KR. Sprang 


Like most of you, I had heard of the @L last year. The 
$30@ price was low, but not quite low enough for me at the 
time. I also wondered about the reliability of the 
microdrives as compared with a disk or cassettes. I own two 
TS-1009s; one has a Tree Systems FORTH ROM. I also have a 
highly aodified TS-2068 which is interfaced with an $-100 
notherboard. 


Two wonths ago, I saw the article in THE RAMTOP about A+ 
Computer Response offering QL kits for $139. I am an 
experienced electronic tech and programmer, so I have no 
fear of computer kits. I called A+, and spoke with a man who 
was very helpful. He took my order, and told me the warranty 
on the QL kit was 30 days. He explained that since it was a 
kit, A+ could not have a very long warranty as there were 
wore things that could go wrong, especially during assembly. 


Four days later, a box appeared on ay doorstep. I was 
already impressed. After supper, I opened the box to find 
the QL kit. 


Included was the main circuit board (pre-assembled), the 
two halves of the case, the two microdrives (pre-assembled), 
sone screws of varying description, and the documentation. 
There is no bundled software with the QL kit, but there are 
two blank microdrive cartridges. A cable and box for TV 
hookup are also included in the kit. 


Even though I am an experienced electronic tech, I 
decided to be very careful and take ny time with the QL kit. 
I found the instructions were clear, with drawings to aid in 
fitting things together. The most difficult part was 
connecting the ribbon cables fron the microdrives to the 
nain circuit board. Even though I took my time, it took only 
"lz to 2/4 hours to assemble the QL. My wife, a non-techie, 
remarked she could probably have assembled it! 


The QL fired right up on the first try. The microdrives 
ran the first time I tried them out. Everything seemed. and 
after several weeks, still seems to be, fine. 


The documentation consists of the assembly instructions, 
a technical description on the innards of the QL, a 
beginners guide to progranming, a conplete SuperBASIC 
keyword section, and a section called ‘QL Concepts’. This 
covered several items in detail, such as RGB monitor hookup, 
the RS-232 ports, the expansion ports, and QD0S. The 
two-page section on QDOS had an EXEC program listing that 
demonstrates aultitasking. QD0S also supports a ’BOQT’ or 
auto-execute type program you can write to have the QL load 
and execute on power-up. The one I wrote asks for the tine 
and date so it can set the QLs internal clock. 


I am impressed with my QL. I have also found that Brice 
Road Pharmacy near Columbus has a good selection of software 
for the QL, including a C compiler, a Pascal package, and an 
assembler package. I am working on conmunication packages 
for ay modem and to communicate with the computer I vork 
with all day. I have barely touched the windowing, and the 
sound capabilities of the QL. 


DUES DDD DAL SINE Ser Re ee 
PROGRAM 
SESE 0489 ee 


The following progras copies the-whole contents of the 
cartridge in mdv2_ to a cartridge in mdvl_. When you run the 
progran, insert the right cartridges in the right drives, 
then press space; you will be asked how wany times you want 
the cartridge in wdvl_ formatted. Input '@' if you don't 
vant the cartridge formatted, or the number of tiaes you do 
want the cartridge formatted. The copying will begin after 
formatting, and then you will be asked if you want to rerun 
the program. This program will only work if you have at 
least one or two free sectors (I's not sure which) on the 
cartridge in edv2_, and copying will take a long tine if 
there is a lot of data on the cartridge in mdv2_. (The 
progras will work in monitor mode, but the display will be 
different) 


180 MODE B:CLS'PRINT ‘Put the original cartridge in mdv2_and 
the blank one in advl_.' 

116 PRINT #0,'Press (SPACE) when ready.’ 

12@ REPeat isiS=INKEYSiIF i$=' ' THEN make dirsEXIT i‘ELSE E 

ND REPeat i 

138 CLS:CLS#@: INPUT ’How many times do you want the cart 

ridge in ndvl_ formatted? (@ ifyou do not want the cartridge 

formatted)! !i 

146 IF INT(i)<>i OR i4@ THEN GO TO 13Q:ELSE FOR f=! TO i:for 

Bat _mdv]_ 

FEO CLSROc120,FOR l=] TO di IF dS(1)=CHRS(18) THEN cl@=cie+ 

VIF cl@=2 THEN 60 70 178 

16@ NEXT 1 

170 CLSicl=i+tiFOR ol=cl+l 10 d 


180 IF d$(ol)=CHRS(1@) THEN p$=d$(cl TO o1-1):PRINT ‘Copying Here are the answers to 


"kpsh'...':DELE ae ‘408: 
p TE 'ndvl_‘&p$;COPY ‘adv2_’kp$ TO ‘ndvl_'$o lect wenthe WORD SQUARE. 


cl=ol+} 

190 NEXT OL:FOR c=] TO 2:DELETE ‘mdv’ach' catalogue’ 

208 CLS:INPUT 'Do you want to rerun the program? (Y/N)''18 
210 IF i$='y' OR ig=’¥' THEN RUNIELSE IF i'n’ OR i$='N’ TH 
EN STOP‘ELSE GO 70 200 

22@ DEFine PROCedure make_dir 

230 DELETE adv2_catalogue:OPEN_NEW #3,mdv2_ catalogue DIR #3, 
ndv2_id$="" OPEN _IN #3,mdv2_catalogue 

240 INPUT #23, a$; d$=d$ka$aCHR$ (10) 

250 IF EOF(#3) THEN CLOSE#3:END DEFine 

268 GO TC 248 

270 DEFine PROCedure format_mdv]_ 

288 FOR fm=l TO di IF d$(fn)=CHRS(18) THEN FORMAT#O, ‘mdv! ‘ad 
$(1 TO fm-1):END DEFine 

290 DEFine FuNction d 

360 RETurn LEN(d$) 

31@ END DEFine ——— ee nt 


u i 


Here is a NEW WORD SQUARE! 


THE UCADS TO LOGDK FOR GRE: 
4: TIHREXSINCLAIR 


If 


= 2: RUCTIGN 

= 3: UORD 

= 4: FREE 
cant = 5: REE . 
i. : 6: GLISER 
Set = F- FEBRR 
A = &: SROUN 
a = S: RHSTRAD 
= ae 36: CLEVELAND 
=; = 41: TSupss. 
=. ‘e a2: sysor 
=, = 13: SOFTUARE 
Bee: o 44: VUFILE 
" i 15: HRSTERFILE 
3 = a6: SIGN 
as, * a7: GR 


If you would like to subscribe to the RAMTOP please fill 


out 


this form and send it to the listed address along with a check 
for: $15/Year or $7.SO/ 6 mo. to become a member of our Group 


CAttend meetings, use library tapes Ect.) or: $12/Year or S6/ 


6 


months to receive the RAMTOP only. Please make checks payable to 


the RAMTOP! CThe phone # is only for our records! ) 
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*Please print! Enclosed: $ For 1 year__ / 6 months__ 


* 


*NAME: PHONE: 


‘e in a at becca een 


*STREET: 
m 


“CITY: __ STATE: a ZIP: 


< eae 


*Type of computer(s) and peripheral(s) you own: 
* 


* 


a THANK YOU for your interest/ Please send to: 
*Robert Parish, 12706 Leeila Ave., Cleveland, OH 44135 
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Some examples of DIVEL output: 
(1) Kased on Shakespeare running on a 2@48 


TOUCH IT. 
‘ate is a sample of: AS GAMING, MY LORD. YOU MAY DISHONOR HIM, BUT IF’D HE BE 
a 1 MEANS AND AT WHAT COMPASSMENT AND AT WHAT COMPANY AND FINDING 
dhegaer at Pas , BY THIS ENCOMPANY AND DRIFT OF QUESTION THAT THEY KEEP. WHAT 
iS inside IS 2SSUC. ComPANy AND FINDING BY THIS ENCOMFANY AND DRIFT OF QUESTION 
THAT THEY DO KNOW MY SON, COME YOU MORE NEARER THAN YOUR 
& = PARTICULAR DEMANDS WILL TOUCH IT. 
ae SURE 10 GET YOUR YES, MY LORD. AND FINDING BY THIS ENCOMPANY AND DRIFT OF 
SELF TO THE DEC, STH question tuar THEY DO KNOW YOUR SON, COME YOU MAY SAY, NOT 


MEETING! I WELL MY LORD. 
THERE WILL BE fl PARTE (2) Based on Homer, Poe and Iggy Pop running on a 2@48. 
SRITNG MONEVIT! SEE THE CARNIVAL SEASON THAT FASSES 


g Hil 
FOU THERET SS THE GRAZING GOLDFISH FOR A WIDGEON CALMLY GROANS. NO MAN 
CAN NOT HOF, AND NO MAN CAN NOT HOF, AND NO MAN EVER PRAISED 
THEE THAT GREASY TURNIPS SLOWLY MARCH, INDEED INFLATED IS | 
QUITE AS CROOKED ASSA BONE. ; 
I GRIEVE THAT A WIDGEON CALMLY GROANS. NO MAN CAN THEE THAT | 
A WIDGEON CALMLY. GROANS. ...NO MAN EVER FRAISED THE CONVEX+ os 


aE 
—— 


Here is a note for ALL of you to CHECK YOUR DUE DATE ON ~~ —— 
YQUR MAILING LABEL!!! This is the date that your “dues 9 --~~ og ee 
sre DUE! We can collect dues at the Dec. seeting. If you NOTE! 1}! - 
become acre than one aonth overdue, we will be forced to If you want a copy of the library tape, bring a recorder, 

regove you froa the pailing list (and Library list),  @ cable (NCT atenvating'), and a C-d¢ f2pe, 8s hepe te 


Please resesbar, i reaily HATE reanving a Rese frog” the “be avi ein get 12 tapes wads. There’ are aprex. 50 2088 
list! ] really feel that our cues are reatonabie when erogras on this tape. Rost are sighty good! DEAN MILLER 
you consider all the benefits! | 


From: z 
TRE GREATER CLEVELAND SHRCLAGR USERS GAGUP ae 
dames G. DuPuy CEditor>? 
6514 Bradley Ave. (Down) 
Parma, Qhio 44129 
TO: 
Kaczor, Jon BI /O5/16 


43568 Williamston Ave. 
Brooklyn, OH 
44144 
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